/ HTBasic 9.3 / HTBasic 9.3.iso / 93win / data1.cab / Advanced_Math_Samples / ifft

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 88 84 00 01 00 00 01 00 | 00 00 00 00 02 00 00 00 |........|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 0f 31 30 20 43 4c 45 | 41 52 20 53 43 52 45 45 |..10 CLE|AR SCREE|
|00000110| 4e 00 00 2c 32 30 20 4c | 4f 41 44 53 55 42 20 41 |N..,20 L|OADSUB A|
|00000120| 4c 4c 20 46 52 4f 4d 20 | 22 2e 2e 5c 6d 61 74 68 |LL FROM |"..\math|
|00000130| 6c 69 62 5c 4d 61 74 68 | 6c 69 62 2e 68 74 73 22 |lib\Math|lib.hts"|
|00000140| 00 08 33 30 20 47 49 4e | 49 54 00 14 34 30 20 46 |..30 GIN|IT..40 F|
|00000150| 75 6e 63 74 69 6f 6e 24 | 3d 22 49 66 66 74 20 22 |unction$|="Ifft "|
|00000160| 00 10 35 30 20 20 49 4e | 54 45 47 45 52 20 4c 6f |..50  IN|TEGER Lo|
|00000170| 67 6e 00 14 36 30 20 20 | 52 45 41 4c 20 41 28 31 |gn..60  |REAL A(1|
|00000180| 35 29 2c 42 28 31 35 29 | 00 10 37 30 20 20 43 4f |5),B(15)|..70  CO|
|00000190| 4d 50 4c 45 58 20 46 28 | 37 29 00 0a 38 30 20 20 |MPLEX F(|7)..80  |
|000001a0| 4c 6f 67 6e 3d 34 00 2a | 39 30 20 20 43 41 4c 4c |Logn=4.*|90  CALL|
|000001b0| 20 57 61 76 65 66 6f 72 | 6d 28 31 36 2e 30 2c 31 | Wavefor|m(16.0,1|
|000001c0| 2e 30 2c 30 2e 2c 30 2e | 2c 31 2e 30 2c 41 28 2a |.0,0.,0.|,1.0,A(*|
|000001d0| 29 29 00 1c 31 30 30 20 | 43 41 4c 4c 20 46 66 74 |))..100 |CALL Fft|
|000001e0| 28 4c 6f 67 6e 2c 41 28 | 2a 29 2c 46 28 2a 29 29 |(Logn,A(|*),F(*))|
|000001f0| 00 1d 31 31 30 20 43 41 | 4c 4c 20 49 66 66 74 28 |..110 CA|LL Ifft(|
|00000200| 4c 6f 67 6e 2c 46 28 2a | 29 2c 42 28 2a 29 29 00 |Logn,F(*|),B(*)).|
|00000210| 00 1d 31 32 30 20 50 52 | 49 4e 54 20 46 75 6e 63 |..120 PR|INT Func|
|00000220| 74 69 6f 6e 24 3b 22 65 | 78 61 6d 70 6c 65 22 00 |tion$;"e|xample".|
|00000230| 00 23 31 33 30 20 50 52 | 49 4e 54 20 22 20 6b 22 |.#130 PR|INT " k"|
|00000240| 2c 22 20 61 28 6b 29 22 | 2c 22 20 20 22 2c 22 20 |," a(k)"|,"  "," |
|00000250| 42 28 6b 29 22 00 00 14 | 31 34 30 20 46 4f 52 20 |B(k)"...|140 FOR |
|00000260| 4c 6f 6f 70 3d 30 20 54 | 4f 20 31 35 00 1e 31 35 |Loop=0 T|O 15..15|
|00000270| 30 20 50 52 49 4e 54 20 | 4c 6f 6f 70 2c 41 28 4c |0 PRINT |Loop,A(L|
|00000280| 6f 6f 70 29 2c 42 28 4c | 6f 6f 70 29 00 0d 31 36 |oop),B(L|oop)..16|
|00000290| 30 20 4e 45 58 54 20 4c | 6f 6f 70 00 00 16 31 37 |0 NEXT L|oop...17|
|000002a0| 30 20 44 45 4c 53 55 42 | 20 46 4e 41 69 20 54 4f |0 DELSUB| FNAi TO|
|000002b0| 20 45 4e 44 00 07 31 38 | 30 20 45 4e 44 00 ff ff | END..18|0 END...|
+--------+-------------------------+-------------------------+--------+--------+